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ABSTRACT 


This research developed a prototype program to plan the distribution of 
communications equipment within an army organization, using artificial-intelligence 
search strategies. The system does two searches: it assembles the maximum 
number of sets of equipment from component equipment procurements, then plans 
how to assign these sets to organizational units. The program was done on a Sun 
workstation with a Quintus Prolog compiler. Due to classification requirements, 
fictitious but typical data was used to test the system. The system can find near- 
optimal ways to modernize the communications equipment of up to ten battalion- 
sized signal units, and has been tested through the procurement of three generations 
of equipment. There were twenty sets of equipment to allocate to the ten units in the 
final test case. This program can also develop a new distribution plan if unexpected 


events require changes to the current plan. 
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THESIS DISCLAIMER 


The views expressed in this thesis are those of the author and do not reflect the 


official policy or position of the Department of Defense or the U.S. Government. 


The reader is also warned that the programs contained in this research have not been 
tested in many cases. This research sought to develop a methodology to automate 
the decisions that result in the planning that has an impact on critical resources. 
Every effort was made to ensure correct and clear program development but the use 
of the programs without additional research and modification is at the risk of the 


user. 
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I. INTRODUCTION 


A. THE COMMUNICATIONS SYSTEM PLANNING PROBLEM 

Military organizations must satisfy many constraints. The most pressing is the 
budget. Unfortunately, budgets for military hardware are always in a state of flux. 
A hardware procurement planned and contracted for in one fiscal year can be cut 
drastically the next, requiring renegotiation with contractors, slowdown of production, 
and possibly higher cost per item; so planning and replanning of the allocation of 
current and future resources is necessary. This is often true within the U.S. Army 
Communications Community. 

It is generally impossible to fully modemize all military units at one time. 
Usually equipment procurements are staggered so that some units can be modemized 
while other units at lesser levels of modernization receive the equipment given up by 
the first group of units. Planning of communications-equipment allocation is 
complicated by the possibility that items distributed to a unit may or may not be 
technically compatible with already acquired equipment; such items are then useless 
to the unit. The goal of the distribution plan is to allocate necessary amounts of new 
equipment and redistribute older equipment in an intelligent way. Without a total 
equipment distribution plan in the past, many items of equipment were distributed on 
individual timetables and many units received only a subset of the equipment 


necessary for a set. 


B. SCOPE 

This thesis developed a prototype planning program that performs basic 
distribution and redistribution planning for a set of U.S. Army Signal Units, given a 
particular set of procurements of equipment. The prototype planning program handles 
up to ten units modernizing each unit a maximum of three times based on the 
equipment available and modernization level of the units. This plan was developed 
in a few days or less on a Sun workstation, which is considered a reasonable amount 


of time. 


C. OVERVIEW 

Chapter II outlines the different methods of planning, gives an introduction to the 
search being used, and discusses previous research in this area. Chapter III describes 
the planning problem with communications equipment and motivates the need for an 
automated system. Chapter IV describes the two phases to the search to allocate 
equipment to Anny Communications Units. Chapter V describes the technical 
requirements of the system and the performance of the programs developed in this 
application. Chapter VI gives conclusions and recommendations for further work in 


this area. The detailed results from each of the runs are contained in Appendix C. 


Il. PLANNING AND SEARCH TECHNIQUES 


A. SEARCH 

Search techniques in artificial intelligence can be used for allocation problems as 
an alternative to computing all possible methods of allocation and then determining 
which are optimal. A detailed description of search techniques including the A* 
search and search engines are contained in Artificial Intelligence Through Prolog by 
Rowe [Ref 1]. The search goes through intermediate steps involving small changes 
to the working plan that make it gradually more comprehensive, when searching for a 
solution to a problem. Usually there are many possible intermediate steps in the 
search; these are called successors or partial solutions. Different search algorithms 
may take different paths to a solution, and generate different intermediate steps. The 
solution developed by a search may not be optimal, but usually will be valid and 
reasonable based on the rules that the search has for progressing toward its solution. 
These rules are called state-transition or successor rules. A good search technique 
only develops the most promising alternatives (best partial solutions) during the 
search. These partial solutions must be evaluated and ranked. The criteria for 
ranking depend on the type of search and will be explained later. 

A solution for the problem of communications-equipment distribution is a plan 
that allocates all of the available equipment to units based on their needs and 
priorities. This can be found by a search. The starting state of the problem is a 
description of the units, the equipment, and the expected procurements. The final 
plan generated by the program will show when units will be allocated the procured 
equipment as well as how to reallocate equipment given up by units modemized. In 
communications equipment distribution, the plan with the most units modemized in 
the shortest amount of time using the equipment already planned for procurement has 
the least overall cost and best ranking. An additional cost could be based on the 
amount of idle equipment, equipment procured before actual use by a unit. 

Three important search techniques are A* search, branch-and-bound, and 
"nopathsearch". The A* search technique develops a plan by making transitions 
based on the rules that define the finished plan. The new states developed are then 


added to a storage area called the agenda. Each state in the agenda is given a 


numeric rating. This rating is based on two considerations: the cost of this state and 
a guess of how much additional cost will be necessary to reach a goal from the state. 
These two factors are added and used to compare the state to other states. The 
program then chooses the lowest-sum state to find successors of next. This is 
repeated until either a. valid goal is reached or all of the states are gone from the 
agenda. States are removed from the agenda when all their possible successor states 
are found. This allows concurrent processing of states. 

The branch-and-bound search technique is similar to the A* search. The 
difference is that each state is evaluated by its cost without adding the additional cost 
that would be incurred to reach a goal state. We use branch-and-bound in Phase I of 
our program. 

The search used in the Phase II of our program is called "nopathsearch". It is an 
A* search that does not store information about what steps it took to get to a state. 
For this search to be used properly, the cost of the state must be able to be evaluated 
without need for information about how the search got there, as the allocation 
problem examined in this research. Hutson utilized the "nopathsearch" technique in a 
thesis that developed training plans for tactical air wing squadrons [Ref 2]. The 
problem was to schedule training and required inspections during times that 
squadrons were not deployed or otherwise committed. The inputs to the scheduler 
application were the required training and deployment timeframes. The scheduler 
developed a plan for multiple squadrons given the requirements and constraints of 


each. 


B. OTHER PLANNING METHODS 

One of the earliest applications of planning was the R1 system developed by 
Digital Equipment Corporation (DEC) for planning the configuration of Digital 
Computer Equipment for its customers [Ref 3]. Digital Equipment Corporation 
manufactures computers that can be configured in many ways. It was a very 
complex job to configure their computer systems because of all the auxiliary parts 
needed by different components and configurations of the systems. The system used 
rules that stated relationships between the many different components produced by 
DEC, and performed forward chaining. This ad hoc approach works well for similar 


problems which are rich in constraints. 


A significant amount of work in scheduling focused on manufacturing systems 
[Ref 4]. Production scheduling must work within resource constraints, capacity 
constraints, and production-time requirements. Savings realized in these environments 
are easily measured. But these techniques require highly restricted problems. 

A different approach to scheduling has been tried by Goehring who developed 
plans for training using stochastic methods that pseudo-randomly made changes to a 
suboptimal but reasonable plan [Ref 5]. Stochastic approaches depend on the planner 
to evaluate a comparative cost to the utility of solution. We did not use this 
approach since there seems no easy way to get an initial plan for our problem. This 
approach also generates unnecessary suboptimal possibilities. 

Relaxation is a planning technique where all of the possible alternatives for parts 
of the problem are enumerated in advance and the analysis progressively eliminates 
them. This technique was considered, but the number of alternatives would be very 
large for our problem. Each distribution to a unit has a strong possibility of 
affecting other units. Relaxation is useful when one or more sets of possibilities can 


be reduced to a single or small set features not characteristic of our problem. 


HI. DESCRIPTION OF THE APPLICATION 


A. PRESENT SITUATION 

The US Army Signal Center recently developed a strategy to address the problem 
of communications-equipment distribution. The Battlefield Communications Review 
Il (BCR II) task force was formed to control all communications equipment 
procurement, distribution, redistribution, and disposal. The main problem was that 
many different items of equipment were being procured under separate contracts and 
timeframes. If an item of equipment was received and could not be used by a unit, 
the item was usually left idle until a complete set of compatible equipment was 
received. Furthermore, the unit could not give up the older equipment until they had 
a complete set of new equipment. Any problem that delays even a single piece of 
equipment requires a change in the distribution plan that affects many units. 

The BCR II distribution plan is complicated by many factors. Budgetary factors 
limit the amount of equipment that can be purchased, as well as the need for a unit 
to keep equipment long enough to fully use it; these will not be addressed in this 
research since they cannot be easily modified due to contractual obligations. Units 
stationed in different geographic areas have different levels of military risk and value, 
summarized by a priorities among units. Units must be modernized a single level at 
a time by doctrine and by the ability of the personnel (in many cases personnel are 
trained on the next generation of equipment beyond what is present in the units). In 
the examples used in this research, three levels of modemization were chosen based 
on the three in the BCR H distribution plan. Once a unit gets new equipment, the 
old equipment can be redistributed or disposed of. A decision of what unit will 
receive it must be made again for the old equipment. 

The BCR II distribution plan was developed during a conference with up to 
twenty people working with a large set of blackboards, manually balancing 
requirements with the planned procurement and unit priorities. When there is a later 
problem with some equipment, this analytical method is again used to a lesser extent 
and the plan is revised. This method is time-intensive and manpower-intensive, 
though computers assist in the tracking the equipment. The premise of this research is 


that computers can assist much more by proposing necessary changes to the plan. 


B. COMMUNICATIONS EQUIPMENT OVERVIEW 

Communications Equipment has four basic components: switching equipment, 
transmission equipment, terminal equipment, and networking equipment. Switching 
equipment performs local telephone operations supporting local communications users. 
Terminal equipment is used and managed locally to transmit information through the 
network, and includes message centers and FAX equipment. Transmission equipment 
transmits raw communications data from one communications site to another. 
Networking equipment is the interface between the switching equipment and the 
transmission equipment, connecting channels from transmission units to various local 
switches. Each of these components of a communications network must be 
compatible. Compatibility depends on technical characteristics of the equipment 
including capacity, size, channel numbers, and communication protocols. 

The major problem that the BCR II addressed was that these four types of 
communications equipment types cannot usually be modemized separately. For 
example, a new type of transmission equipment cannot always work with an older 
type of networking equipment. The current BCR II planners constantly have 
shortages of equipment needed to modernize units. Another problem that must be 
addressed is compatibility between units. This can be partially resolved in this 
planning program with the priorities of the units by ensuring that units that are part 


of the same network have the same priority for equipment allocation. 


C. EXAMPLES 
Appendix A shows the components and amounts needed in different unit sets of 
equipment and how a unit may receive single pieces of equipment according to 


present procurement distribution practices. 


IV. DESCRIPTION OF THE PROGRAM 


A. PHASE ONE: CONSTRUCTION OF EQUIPMENT SETS 

The first phase of our search program develops the sets of equipment that can be 
made from individual equipment procurements already planned and contracted. The 
search state has two parts: the individual pieces of equipment that need to be put in 
sets and the sets of equipment generated to up to the current point. The search 
continues until no further sets can be made. Two approaches were taken to Phase I. 

The first approach generated all possible partitions of the procured equipment 
into sets such that no further sets could be created. The program output the partition 
scheme with the least number of pieces of equipment not in a set. The results are 
shown in Chapter V. This method required a significant amount of recursion, 
memory storage, and CPU time. As the number of pieces of equipment procured in 
the program was increased, these factors increased exponentially. 

The second approach which we now employ uses a branch-and-bound search 
technique similar to the second phase described later. This search technique 
generates only a few possible solutions for a list of equipment, one at a time. It 
takes a state on the agenda with the lowest cost value and computes its successors; 
this state is called the most promising intermediate state. The successors differ from 
the original state by the inclusion of one additional set of equipment that can be 
made from unassigned procurements in the state. The procurement totals are then 
correspondingly decremented. Items of equipment are assigned to sets until no 
further sets can be made. The cost function counts the equipment that is not in sets. 


Figure 1 shows the Prolog state-succession rule for this phase. 


B. PHASE TWO: ALLOCATION OF EQUIPMENT SETS TO UNITS 

The distribution plan is generated by a search which looks for an allocation of an 
equipment set to a unit of appropriate type and priority, giving the older set of 
equipment to another unit or disposing of it. The starting state contains a list of 
units, their types, and what equipment they currently have. States also hold a list of 
sets of equipment not yet allocated and when the sets will be available. A state 


transition means a set of equipment has been allocated to a unit. 


successor([List of equipment,Setsofar], 
[Out list of equipment,Newsetsofar]):- 
make up one set(List of equipment, 
Out list of equipment,Set, Year), 
appendd(procurement(Year,Set, 1 ),Setsofar, Newsetsofar). 


This successor rule for the unit set development phase takes components of the 
correct type and number from the procurement to make up one set. The set is then 
appended to the list of sets. 


Figure | 


Successor Rule For Unit Set Development 


Appendix B shows the state-succession rule for this phase. It shows how the 
unit information, units equipment status, and the projected procurements are used to 
make an equipment-allocation decision in the plan. To generate the successor states 
as fast as possible, predicates in the successor rule are ordered so that possible 
choices required are few after the first predicates succeed. So the successor rule first 
determines what type of set is next for the unit, and then if that set is available. It 
then determines if the equipment should be given to the unit based on the other 
equipment in other units, the priority of the unit, and the modemization level of the 


equipment. 


Figure 2 shows the cost and evaluation function used by "nopathsearch" for this 
phase. The cost function sums up the times when each of the units were given their 
last set of equipment. Since the state-successor rule ensures that the equipment set is 
given to units of highest priority among those that can accept it, the state with the 
lowest total cost has used the equipment in the most efficient way among all valid 
possibilities. The evaluation function counts the equipment left to distribute. 

We also explored a refinement of this phase that added an extra number to the 
cost. This number measured the time that equipment was available and not assigned 
to a unit. This measures how well the budget is used in relation to the actual needs 


of the units, a "delay factor" measurement. 


cost(List,Amount):- 
bagof(U,unitstatus_look_year(List,U),Givelist), 
addit(Givelist, Total), member(delay(Time),List), 
dfactor(Weight), Amount is Total+Time* Weight. 


The cost of a partial allocation is the sum of the last years that the equipment 
was given to a each unit. The best distribution plan gives equipment to the units at 
the earliest opportunity. The function "unitstatus look year" returns the last year tbat 
a unit was given equipment. The code above includes the delay factor that considered 
when equipment was available for the unit but no unit was able to receive it. 


eval(List,Amount):- 
bagof(U, priorities(List,U),Prioritylist), 
minimum(Prioritylist, Amount). 


The evaluation amount for a state is based on the priority of the equipment left 
to distribute to a unit. This predicate collects all of the modernization levels of 
equipment left to allocate and then returns the minimum. This underestimates the 
amount of additional time necessary until all of the equipment will be allocated. 

Figure 2 


Cost And Evaluation Function From Phase Il 
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V. RESULTS 


A. SYSTEM REQUIREMENTS 

The Prolog program was developed with a C-PROLOG interpreter. To speed it 
up, the program was modified to be compiled with Quintus Prolog. Quintus requires 
certain declarations of predicates in a program to compile it. The Prolog software 
and the program required 2.5 megabytes. The program alone required 1.5 megabytes. 
All Prolog source code will run on a C-PROLOG interpreter once these declarations 


are removed. 


B. TEST RUNS OF THE PROGRAMS 

Table 1 shows some statistics on Phase I (developing unit sets from separate 
pieces of equipment). This phase developed unit sets within a small time compared 
to the search in Phase Il. 

Phase II was tested with various kinds of units and equipment. Procured 
equipment was chosen for each run so it would not modernize all units fully since 
this is usually the case with real budgeted assets. And also like real units, some 
units were at the intermediate level of modernization to start, but none were at the 
most modern level. 

Table 2 summarizes the time used to produce plans for specific numbers of units, 
and it compares compiled and interpreted code with different delay factors. The time 
to develop a plan increased exponentially as the number of units and procurements 


increased. 
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TABLE 1 
STATISTICS ON PHASE 1 OF THE PROGRAM 


Number of Equipment All-Partitons Search 
Procurement Method Method 
Transactions CPU Time CPU Time 

(seconds) (seconds) 
6 5.116 7.050 
7 42.433 42.733 
15 out of memory 57.166 
22 out of memory 397985 
TABLE 2 


STATISTICS ON PHASE 2 OF THE PROGRAM 


CPU Time in Seconds 


Number of Units Interpreted Compiled Compiled Code Compiled Code 


Code Code Delay Factor=1 Delay Factor=2 

2 52 i 53 35 

3 172 116 85 128 
4 1586 1152 1053 867 
S 3434 2473 2340 2140 
6 40072 30422 24126 20775 
7 26793 20607 18086 16678 
8 96625 77488 73615 9654 
9 133018 114670 107911 98552 
10 104830 83748 80199 78809 


152 


TABLE 3 


COMPARISON OF CPU TIMES USING DIFFERENT DELAY FACTORS 


Delay Factor Total CPU Time for Program (Seconds) 


] 2340.733 
2 2140.566 
5 2125 16 
10 2173.850 


(for distributing equipment to five units) 


Appendix C summarizes each of the test runs. The input was a list of units, 
their current equipment, and a list of procured equipment. The procured equipment 
was defined by a type, amount, and year procured. 

Table 3 summarizes the time required with different delay weights, with five 
units and a limited amount of equipment. The inclusion of the delay factor in the 
cost function allowed only a savings of ten to twenty percent in the execution tune 
from the original run of the program. The distribution plan found did not change. 

Another analysis was performed in this thesis was to find bottlenecks in the 
state calculation in Phase IIl. A special version of the program was developed to 
trace this and is included in the Appendix C. Figure 3 shows a transition frequency 
diagram for the major parts of the successor rule. Table 4 shows the distribution of 


time it took to compute a successor. 
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Explanation of Each Step in the Transition Diagram 


Step 1: Retrieve a Unit from the current state. 


Step 2: Check that the amount of equipment in the procurement is enough 
to meet the needs of the Unit. 


Step 3: Check if the proposed allocation violates the prioritization of the 
units. 


Step 4: Give the set of equipment that the unit previously held to PDO or 
Procurement. 


The upper numbers represent the frequency that a test succeeded; the lower numbers 
represent the frequency a test failed and backtracking was necessary. 


Figure 3 


State Movement Within The Successor Rule 
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TABLE 4 
SUCCESSOR-COMPUTATION-TIME DISTRIBUTION 


CPU Time To Compute Successor Frequency 
(1/100 of a second) 


300 - 500 18 
501 - 1000 87 
1001 - 1500 38 
1501 - 2000 13 
2001 - 2500 44 
2501 - 3000 15 
3001 - 3500 53 
3501 - 4000 30 
4001 - 4500 38 
4501 - 5000 24 
5001 - 5500 31 
5501 - 6000 14 
6001 - 6500 8 
6501 - 7000 11 
7001 - 7500 6 
7501 - 8000 7 
8001 - 8500 3 
8501 - 9000 0 
9001 - 9500 2 
9501 -10000 1 


This table is based on generating a plan for five units and a delay factor of two. The 
average time to compute successors was 2.981 seconds. The above numbers 
represent raw nuinbers of tune a successor was generated within the program run. 


VI. CONCLUSIONS AND RECOMMENDATIONS 


A. STRENGTHS AND WEAKNESSES 

The Prolog programming language was a good choice for this research since it is 
widely available and does not constrain the programmer to a specific way of 
programming. The performance of the system improved with the compiler. The 
backtracking of the search allowed the system to consider a significant number of 
good alternatives and produce plans which were valid and reasonable. The 
components file in. Appendix D showing the relationships of the equipment and 
modernization levels can be adapted to other types of problems. 

Speed of the program does not seem a significant problem, anticipating 
forthcoming computer software and hardware improvements. The plans developed by 
the program are reasonable, timely, and correct while not guaranteed to be fully 
optimized. 

A main weakness of this program is its criteria for choosing the state to generate 
a successor for, a function of the cost and successor functions. The width of the 
agenda could not be narrowed any further in this program since the system needed to 
be able to consider many options in order to get a good plan. But there is a critical 
tradeoff between the number of options considered and the speed of the final plan. 

This prototype does not consider the distribution of equipment where the number 
of sets of equipment held in a unit 1s changed. This decision was made based on the 
short-term need to divide the system into separate phases. Otherwise, the system 
would constantly have to work with changing amounts of unit sets and compute unit 


sets prior to each allocation. 


B. RECOMMENDATIONS 

This system could be used as a reactionary or analytical tool for a planning 
agency. If the current plan needs to be changed due to equipment availability or unit 
realignment, the program could be rerun and a new plan could be put in place in 
only a few hours or days. A strength of computer-generated plans is that all 
decisions are based on well-documented information formalized in a program. No 


unknown biases or undocumented decisions can be introduced into the plan. 
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A enhanced prototype could be developed to work with the classified actual data. 
An additional feature that is necessary to better model the real world would be to 
require that sets of units that operate together use the same equipment. The planning 
of the amounts of equipment to procure was not addressed in this thesis. All these 


would be worthwhile areas of future study. 
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APPENDIX A: EQUIPMENT-SET EXAMPLES 


The following examples are sets of equipment that actual units might have. Each 
example shows the items in the particular set, and the amount and type of equipment 
when appropriate. These sets are the standard ones. 


11035J5 Division Signal Battalion with Atacs/latacs equipment 


ITEM AMOUNT TYPE OF EQUIPMENT 
AN/GRC- 142 14 

AN/GSQ-80 4 

AN/MSC-31 6 

AN/TCC-65 4 

AN/TRC-113 12 Transmission 
AN/TRC-145 42 Transmission 
AN/TSC-58 2 

AN/TSC-76 7 Networking 
AN/TSC-85 9 Transmission 
AN/TSC-93 3 Transmission 
AN/TTC-41 9 Switching 


11045L0 Light Infantry Division Signal Battalion (specialized Equipment) 


ITEM AMOUNT TYPE OF EQUIPMENT 
SB-3614 1 Switching 
AN/GRC-142 14 
AN/TTC-41 6 Switching 
AN/TGC-30 
AN/TRC-145 31 Transmission 
AN/TRC-113 6 Transmission 
AN/TSC-76 4 Networking 
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11065L0 Heavy Division Signal Battalion 
(Mobile Subscriber Equipment) 


ITEM AMOUNT 
AN/MSC-31 2 
AN/TRC-190 38 
AN/TRC-191 9 
AN/TTC-46 ] 
AN/TTC-48 16 
AN/TTC-47 4 


TYPE OF EQUIPMENT 


TRANSMISSION 
TRANSMISSION 


11425H7 Corps Level Signal Battalion (Atacs) 


ITEM AMOUNT 
AN/GRC-142 2 
AN/GRC-122 3] 
AN/MSC-25 ] 
AN/MSC-31 3 
AN/TCC-72 5 
AN/TCC-73 8 
AN/TRC-112 3 
AN/TRC-121 5 
AN/TRC-151 20 
AN/TRC-152 34 
AN/TRC-170 6 
AN/TSC-76 1 
AN/TSC-85 3 
AN/TSC-93 1 
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TYPE OF EQUIPMENT 


SWITCHING 
SWITCHING 
TRANSMISSION 
TRANSMISSION 
TRANSMISSION 
TRANSMISSION 
TRANSMISSION 
NETWORKING 
TRANSMISSION 
TRANSMISSION 


11435L0 Corps Level Signal Battalion (latacs) 


ITEM AMOUNT TYPE OF EQUIPMENT 
AN/MSC-31 1 
AN/TTC-46 1 
AN/TRC-190 p? TRANSMISSION 
AN/TTC-47 6 
AN/TRC-191 13 TRANSMISSION 
AN/TTC-48 40 
AN/TSQ-154 7 


EXAMPLE UNIT ALLOCATION 


This allocation changes the unit into one that supports tactical satellite 
communications channels. 


3rd Sig Bde 
Date Equipment Amount 

2 Qtr Fy 90 AN/GSQ-80 

2 Qtr Fy 90 AN/MSC-32 

1 Qtr Fy 90 AN/TYQ-35 

3 Qtr Fy 88 AN/TSC-85 

3 Qtr Fy 88 AN/TSC-93 


Ww WN — Ut 
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APPENDIX B 


TOP LEVEL RULE FOR DISTRIBUTION OF UNIT SETS TO UNITS 


allocated(State,Ne wstate):- 


]. unit(NameU,PriorityU, TypeU), 

2. member(procurement(YearP,EquipP,AmountP),State), 

3. Amountp > 0, 

4. unitstatus_look_unit(State,NameU, YearU,EquipU), 

5. forward(EquipU,EquipP), 

6. amount(EquipP, TypeU,;Required), 

7. AmountP>=Required, 

8. Temp is YearU+3, 

9. bigyear(YearP,Temp,Giveyear), 
10. deleteone(procurement(Y earP,EquipP, AmountP),State, X2), 
11. NewamountP is AmountP-Required, 
12. append if necessary( X2, X3, YearP,EquipP,NewamountP), 
13. appendd(given(NameU,EquipP,Giveyear,Required), X 3,X4), 
14. not(any wrong priority(X4)), 
15. member(given(NameU,EquipU,YearU,Oldamount), X4), 
16. YY is Giveyear+l, 
17. give to PDO or procurement(X4,NameU,EquipU,Y Y ,Oldamount, X5), 
18. get rid of extraneous. proc(EquipU,X5,Newstate). 


For clarity the time units were called years in the program. Capitalized items are 
variables in Prolog. 


Variable Explanation 

State Current state being examined 

Newstate Modified state after change has been made 
NameU Name of the unit being examined 

PriorityU Priority of UnitU 

TypeU Type of unit UnitU is 

YearP Year that the procurement will be made 

EquipP Name of the set of equipment in the procurement 
AmountP Amount of equipment being procured 

EquipU The current set of equipment UnitU has 
Required The amount of EquipP that a unit of TypeU needs 
X2,X23,X4,X5 Temporary changes to the state in the rule 


2] 


The successor rule states that an allocation of equipment can be made to a unit if the 
following conditions can be satisfied in this order. 


AUNE 


CA 


10. 
11۰ 


12: 
13. 
14. 
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16. 


17. 


18. 


There is a unit available (call it NameU). 
There is still equipment to distribute. 
The amount to distribute is > 0. 


. The set of equipment NameU currently has 1s EquipU and the time it 


received it is YearU. 


. The next modernization step after EquipU is EquipP. 


The amount needed of EquipP for a unit of type TypeU is computed and 
called the variable Required. 


. The amount needed to fully modernize the unit NameU is sufficient. 


A unit must keep an equipment set for at least 3 time periods, called years in 
the program for clarity; calculate the end of this period from when the 
old equipment was issued to the unit. 

The unit can receive an equipment set only at or after the 3-year point. 
Delete the equipment set from the list of available sets. 

If there are still sets of EquipP left after modemizing NameU, calculate 
the amount. 

Put the additional amount if any of EquipP back in the state for later 
allocation. 

Add the allocation record to the state for unit NameU. 

Determine if the allocation violates the priority for equipment allocation. 
Determine the equipment the unit had prior to allocation. 

The unit NameU only gives back equipment after it has both sets. This 
overlap of at least one time unit is necessary to continue the readiness 
posture of the unit. 

Decide what to do with the old equipment. If a unit needs the equipment that 
unit NameU is giving up, the equipment is put in a procurement record. 
Otherwise it is given to Property Disposal (PDO). 

Take care of equipment which is no longer needed. 


There is an additional rule that combines procurements of the same type. 
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APPENDIX C 
QUERIES AND RESULTS 


This appendix gives Prolog top-level queries and results from the different runs of the 
Phase Ll, the allocation-of-equipment phase. The queries describe the units present 
and their status. The units each have a type of unit and a priority for new 
equipment. The state description has "given records" that describe the latest level of 
equipment modernization, the amount received, and the date it was given to the unit. 
The state also has "procurement records" which describe when equipment is available 
for distribution to a unit, the amount available, and the type of equipment. 


The final state computed by Phase II used all the equipment available and disposed 
of equipment not needed. The latter is done with the "pdo record" of the final state, 
which indicates at the time specified all units had no use for the equipment at that 
time or any time in the future. 
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TWO UNITS 


go. 2c:- compile(nopathsearch), 

compile(components), 

compile(planner), 

assert(unit(sig5,1,s415)), 

assert(unit(sig3,3,s415)), 

done searching, file([ 
given(sig5,iatacs,2,2), 
given(sig3,atacs,3,1), 
procurement(6,1atacs,1), 
procurement(5,1atacs, |), 
procurement(7,mse,2)], 
outplanner2c),halt. 


[given(sig5,iatacs,2,2),given(sig5,mse,/,1), 
given(sig3,atacs,3,1),given(sig3,1atacs,6,2),given(sig3,mse,9,1), 


pdo(sig3,7,atacs,1),pdo(procurement,8,1atacs,2), pdo(s1g3,10,1atacs,2)] 
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THREE UNITS 


go. 3c:- compile(nopathsearch), 

compile(components), 

compile(planner), 

assert(unit(sig5,1,s415)), 

assert(unit(sig2,2,s415)), 

assert(unit(sig3,3,s415)), 

done searching. file([ 
given(sig5,iatacs,2,2), 
given(sig2,atacs,3,1), 
given(sig3,atacs,5,1), 
procurement(5,1atacs,2), 
procurement(7,mse,2), 
procurement(9,mse, 1) 

], 
outplanner3c),halt. 


[given(sig5 ,iatacs,2,2),given(sig5,mse,/,1), 
given(sig2,atacs,3,1),given(sig2,iatacs,6,2),given(sig2,mse,9,1), 


given(sig3,atacs,5,1),given(sig3 ,1atacs,8,2),given(sig3,mse,11,1), 


pdo(sig2,7,atacs,1),pdo(sig3,9,atacs,1),pdo(s1g2,10,1atacs,2), pdo(sig3,12,iatacs,2)] 
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FOUR UNITS 


go. 4c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5,1,s415)), 
assert(unit(sig4,2,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig3,3,s415)), 
done searching file([ 
given(sig5,iatacs,2,2), 
given(sig3,atacs,3,1), 
given(sig2,atacs,5,1), 
given(sig4,atacs,3,1), 
procureiment(5,iatacs,3), 
procurement(7,mse.2), 
procurement(9,mse,2) 
J, 


outplanner4c), halt. 


[given(sig5,1atacs,2,2),given(sig5,mse,7,1), 
given(sig4,atacs,3,1),given(sig4,iatacs,6,2),given(sig4,mse,9,1), 
given(sig3,atacs,3,1),given(sig3,iatacs,9,2),given(sig3,mse,1 1,1), 
given(sig2,atacs,5,1),given(sig2,iatacs, 10,2),given(sig2,mse, 13,1), 


pdo(sig4,7,atacs,1),pdo(procurement,8,iatacs,1), 


pdo(sig3,9,atacs,1),pdo(sig2,l 1,atacs,1), 
pdo(procurement,12,1atacs,2),pdo(si1g2,14,iatacs,2)] 
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FIVE UNITS 


go. 5c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5,1,s415)), 
assert(unit(sig4,2,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig3,3,s415)), 
assert(unit(sig1,5,s415)), 
done searching file(| 
given(sig5,1atacs,2,2), 
given(sig3,atacs,4,L), 
given(sig2,atacs,5,1), 
given(sig4,atacs,4,1), 
given(sigl,atacs,5,1), 
procurement(5,iatacs,3), 
procurement(7,mse,2), 
procurement(9,mse,2) 
۳ 
outplanner5c),halt. 


[given(sig5,iatacs,2,2),given(sig5,mse,7,1), 
given(sigd,atacs,4,1),given(sigd,1atacs,7,2),given(sigAd,mse,10,1), 
given(sig3,atacs,4,1),given(sig3 ,1atacs,8,2),given(sig3,mse,11,1), 
given(sig2,atacs,5,1 ),given(sig2,iatacs,1 1,2),given(sig2,mse,14,1), 
given(sigl,atacs,5,1),given(sigI ,1atacs,12,2), 


pdo(procurement,5,1atacs,1), 


pdo(sig4,8 ,atacs, 1), pdo(sig3,9,atacs,1),pdo(sig2,12,atacs,1), 
pdo(sig1,13,atacs,1),pdo(sig2,15,1atacs,2)] 
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SIX UNITS 


go. 6c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5,1,s415)), 
assert(unit(sig4,2,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig3,3,s415)), 
assert(unit(sig1,5,s415)), 
assert(unit(s1g0,5,s415)), 
done searching file([ 
given(sig5,1atacs,2,2), 
given(sig3,atacs,4,1), 
given(sig2,atacs,5,1), 
given(sig4,atacs,4, 1), 
given(sigl,atacs,5,1), 
given(sigÜ,atacs,5,1), 
procurement(5,1atacs,3), 
procurement(7,mse,2), 
procurement(7,1atacs,3), 
procurement(9,mse,2) 


J, 


outplanner6c),halt. 
PLAN GENERATED 


[given(sig5,iatacs,2,2),given(sig5,mse,7,1), 
given(sig4,atacs,4,1),given(sig4,iatacs,7,2),given(sig4,mse,10,1), 
given(sig3,atacs,4,1),given(sig3,1atacs,7,2),given(sig3 ,mse, 10,1), 
given(sig2,atacs,5,1),given(sig2,iatacs,8,2),given(sig2,mse, 11,1), 
given(sigO,atacs,5,1),given(sigl,atacs,5,1), given(sigO,iatacs,8,2), 
given(sig]l,iatacs,11,2), 


pdo(sig4,8,atacs,1),pdo(sig3,8,atacs,1), pdo(sig2,9,atacs,1), 


pdo(sig0,9,atacs,1), 
pdo(procurement,11,1atacs,2), pdo(sig1,12,atacs,1),pdo(sig2,12,1atacs,2)] 
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SEVEN UNITS 


go 7c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5,1,s415)), 
assert(unit(sig4,2,s415)), 
assert(unit(sig3,3,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig1,5,s415)), 
assert(unit(sig0,5,s415)), 
assert(unit(siga,6,s415)), 
done searching file([ 
given(sig5,iatacs,2,2), 
given(sig4,atacs,2,1), 
given(sig3,atacs,3,1), 
given(sig2,atacs,5,1), 
given(sig1,atacs,5,1), 
given(sigÜ,atacs,5,1), 
given(siga,atacs,5,1), 
procurement(5,iatacs,4), 
procurement(7,mse,2), 
procurement(9,mse,2) 
J, 
outplanner7c),halt. 


PLAN GENERATED 


given(sig5,iatacs,2,2),given(sig5,mse,7,1), 
given(sig4,atacs,2,1),given(sigd,iatacs,5,2),given(sig4,mse,8,1), 
given(sig3,atacs,3,1),given(sig3,iatacs,6,2),given(sig3,mse,9,1), 
given(sig2,atacs,5,1),given(sig2.iatacs,8,2),given(sig2,mse,11,1), 
given(sig0,atacs,5,1),given(sigl,atacs,5,1), given(sigO,iatacs,9,2), 
given(sig 1 ,iatacs,10,2),given(siga,atacs,5,1),given(siga,iatacs,12,2), 


Peron sig4,G,atacs,!),pdo(sig3,7,atacs,1),pdo(sig2,9,atacs,1), 


pdo(sig0,10,atacs,1),pdo(sig1,11,atacs,1), 
pdo(siga,13,atacs,1)] 
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EIGHT UNITS 


go. 8c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig8,3,s415)), 
assert(unit(sig7,4,s415)), 
assert(unit(sig6,5,s415)), 
assert(unit(sig5,6,s415)), 
assert(unit(sig4,7,s415)), 
assert(unit(sig3,8,s415)), 
assert(unit(sig2,9,s415)), 
assert(unit(sig1,10,s415)), 
done searching file([ 
given(sig8,1atacs 3,2), 
given(sig/,atacs,2,1), 
given(sig6,atacs,2,1), 
given(sig5,atacs,2,1), 
given(sig4,atacs,4,1), 
given(sig3,atacs,4,1), 
given(sig2,atacs,5,1), 
given(sigl,atacs,5,1), 
procurement(8,iatacs,3), procurement(5,iatacs,3), 
procurement(7,mse,2), — procurement(9,mse,2) 
],outplanner8c). 


PLAN GENERATED 


[given(sig8 ,iatacs,3,2),given(sig8 ,mse,7,1), 
given(sig7,atacs,2,1),given(sig7,iatacs,5,2),given(sig7,mse,8,1), 
given(sig6,atacs,2,1),given(sig6,iatacs,8,2),given(sig6,mse, 11,1), 
given(sig5,atacs,2,1),given(sig5,1atacs,8,2),given(sig5,mse,11,1), 
given(sig4,atacs,4,1),given(sig4,iatacs,8,2), 
given(sig3,atacs,4,1),given(sig3 ,iatacs,9,2), 
given(sig2,atacs,5,1),given(sig2,1atacs, 12,2), 

given(sig I ,atacs,5,1),given(sigI ,iatacs, 12,2), 


pdo(sig7,6,atacs,1),pdo(sig6,9,atacs,1),pdo(sig5 7%, atacs me 
pdo(sig4,9,atacs,1),pdo(sig3,10,atacs,1),pdo(sig2,13,atacs,1), pdo(sig1,13,atacs,1)] 
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NINE UNITS 


go O9c:- compile(nopathsearch), 

compile(components), 

compile(planner), 

assert(unit(sig9,2,s415)), assert(unit(sig8,3,s415)), 

assert(unit(sig7,4,s415)), assert(unit(sig6,5,s415)), 

assert(unit(sig5,6,5415)), assert(unit(sig4,7,s415)), 

assert(unit(sig3,8,s415)), assert(unit(sig2,9,s415)), 

assert(unit(sig1,10,s415)), 

done searching file([ 
given(sig9,iatacs,2,2), given(sig8,iatacs,3,2), 
given(sig7,atacs,2,1), given(sig6,atacs,2,1), 
given(sig5,atacs,2,1), given(sig4,atacs,4,1), 
given(sig3,atacs,4,1), given(sig2,atacs,5,1), 
given(sigl,atacs,5,1), 
procurement(8,iatacs,3), procurement(5,iatacs,3), 
procurement(7,mse,2), procurement(9,mse,2) 

],oeutplanner9c). 


PLAN GENERATED 


[given(sig9,iatacs,2,2),given(sig9,mse,7,1), 
given(sig8,iatacs,3,2),given(sig8,mse,7,1), 
given(sig/,atacs,2,1),given(sig7/,iatacs,5,2),given(sig7,mse,9,1), 
given(sig6,atacs,2,1),given(sig6,1atacs,8 ,2),given(sig6,mse,11,1), 
given(sig5,atacs,2,1),given(sig5,iatacs,8,2), 
given(sig4,atacs,4,1),given(sig4,iatacs,8,2), 
given(sig3,atacs,4,1),given(sig3,iatacs,8,2), 
given(sig2,atacs,5,1),given(sig2,1atacs,10,2), 
given(sig1,atacs,5,1),given(sig1 ,iatacs, 12,2), 


pdo(sig7,6,atacs,1),pdo(sig6,9,atacs,1), 


pdo(sig5,9,atacs, 1),pdo(sig4,9,atacs, |), 
pdo(sig3,9,atacs,1),pdo(sig2,11,atacs,1),pdo(sig1,13,atacs,1)] 
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TEN UNITS 


go_10c:- compile(nopathsearch), 

compile(components), 

compue(planner), 

assert(unit(sig10,1,s415)), assert(unit(sig9,2,s415)), 

assert(unit(sig8,3,5415)), assert(unit(sig7,4,s415)), 

assert(unit(sig6,5,5415)),  assert(unit(sig5,6,5415)), 

assert(unit(sig4,7,s415)), assert(unit(sig3,8,s415)), 

assert(unit(sig2,9,s415)),  assert(unit(sig1,10,s415)), 

done searching file([given(sig10,1atacs,2,2), given(sig9,1iatacs,2,2), 
given(sig8,iatacs,3,2),  given(sig7,atacs,2,1), 
given(sig6,atacs,2,1), X given(sig5,atacs,2,1), 
given(sigA,atacs,4,1), ^ given(sig3,atacs,4,1), 
given(sig2,atacs,5,1),  given(sig1,atacs,5,1), 
procurement(8,latacs,3), procurement(5,1atacs,3), 
procurement(7,mse,2), procurement(9,mse,2) 
],outplanner10c). 


PLAN GENERATED 


[given(siglO,1atacs,2,2),given(sig10,mse,7,1), 
given(sigY,iatacs,2,2),given(sig9,mse,7.1), 
given(sig8,latacs,3,2),given(sig8 ,mse,9, 1), 
given(sig7,atacs,2,1),given(sig7,1atacs,5,2),given(sig7,mse,9,1), 
given(sig6,atacs,2,1),given(sig6,iatacs,8,2), 
given(sig5,atacs,2,1),given(sig5,iatacs,8,2), 
given(sig4,atacs,4,1),given(sig4,iatacs,8,2), 
given(sig3,atacs,4,1),given(sig3,1atacs,8,2), 
given(sig2,atacs,5,1),given(sig2,iatacs,10,2), 
given(sigl,atacs,5,1),given(sigl,iatacs, 10,2), 


pdo(sig/,6,atacs,1),pdo(sig6,9,atacs,1),pdo(sig5,9,atacguum 


pdo(sig4,9,atacs,1),pdo(sig3,9,atacs,1),pdo(sig2,11,atacs, 1), 
pdo(sigl,11,atacs,1)] 
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APPENDIX D: SOURCE CODE 


9 


/ * module procsearch */ 

AX This is the module that generates unit sets of equipment  */ 
/ from individual procurements of equipment x / 
/* The goal of the search is a state where no other sets of 


equipment  */ 
/* can be made from the components can be made 


KL 
goalreached([[],X]):-write(X),nl, statistics. 
goalreached ([X,Y]) :-not (make _up one set (X, Output, Set, Year); 
write('----------- ^),nl,write(X),nl,write(Y),nl,statistae ss 


/* the cost of a state is the amount of equipment not yet in sets 
S 
cost ([X, Y])], Cost) :-countit (X, Cost). 


counEkaxto[r10) 
countit ([XIL],Y):-countit(L,Y2),Y is Y2+1. 


eval (X, 1). 


/* this is the top level call for this module which calls the 
search function*/ 


done searching file(X,Fname) : save(coresearcher), 
write('core image saved'),nl, 
tell(Fname),search([X,[]],Y),told,halt. 


successor([List comp proc,Setsofar], 
[Out list comp proc,Newsetsofar]):- 


make up one set (List comp proc,Out list _ comp proc,Set,Yearik 
appendd (procurement (Year, Set, ,1),Setsofar, Newset sofie 


/* no more sets of possibilities to make up  */ 


make up one set(List of components,Rest of components, 
NameG, Year):- 
generation (NameG), 
bagof([Cname,Camount], component (NameG, Cname, Camount),Clist), 
makeit(List of components,Rest of components,Clist,0,Year). 


makeit (Procured components left Procuredicomponents Tert: 
[J], Year, Year). 
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makeit(Procured components,Rest of components not used, 
Needed components, Latest | year, New latest " year) :- 
firstmember (Needed components, [NameC, AmountC]), 
member (procurement (Year, NameC, AmountP) , Procured components) , 
take care of lists (Year, AmountP, AmountC, NameC, Needed _ components, 
New | needed, Procured _ components, New rest of | components), 
bigyear(Year,Latest Year, Tyear), 
makeit (New rest of components,Rest of components not used, 
New needed, Tyear, New latest | year). 


take care of lists (Year,AmountP,AmountC,NameC,Needed components, 


New needed,Procured components,New rest of components):- 
AmountP»AmountC, 
e ane Nare, AmountC],Needed components, New needed), 
T is AmountP-AmountC, 


deleteone (procurement (Year, NameC, AmountP) ,Procured components, 
New procured), 
appendd (procurement (Year, NameC, T) ,New_procured, 
New rest of components) - 


take care of lists (Year, AmountP, AmountC, NameC, Needed components, 


New needed, Procured components, New rest _of components) :- 
AmountP«AmountC, 


deleteone ([NameC, AmountC],Needed components,New neededl), 
T is AmountC-AmountP, 


deleteone (procurement (Year,NameC, AmountP),Procured components, 
New procured), 
appendd ([NameC, T] ,New_neededl, New needed) . 
take care of lists (Year, AmountP, AmountC, NameC, Needed components, 
New needed, Procured components,New rest of components) :- 


AmountP=AmountC, 
deleteone ([NameC, AmountC] , Needed components, New needed), 


deleteone (procurement (Year,NameC, AmountP) ,Procured components, 
New rest of components). 
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/* the following code does a sort of the list for comparisons and 
output s 


sortpplist([],[]). 
50۳۲۳۳135۲ ۷ ۳ ۱ v 

sortpplist (L1,L3), 

insert item for sort us T 


insert item for sort (XPI DE 
insert item for _sort (procurement (XYear, XName, XAmount), 
[procurement (YYear, YName, YAmount) |L], 
[procurement (XYear,XName,XAmount), 
procurement cd NER IRSE 
priority (XName,X), 
priority (YName,Y), 
XX is X+XYear*1000, 
YY is Y+YYear*1000, 
XX<YY. 
insert item for _ sort (procurement (XYear, XName, XAmount) , 
[procurement (YYear, YName, YAmount) |L1], 
[procurement (YYear, YName, YAmount) |L2]): 
priority (XName,X), 
priority (YName,Y), 
XX is X+XYear*1000, 
YY is Y+YYear*1000, 
oe Y 


insert item for sort (procurement (XYear, XName, XAmount) ;, D7 lege 
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/* general purpose utilities needed in the procsearc module x 


prunable (State,D,BestState,Dbest) :- 
sheckfpernutaåtion(State, Best State), t. 


firstmember([X|L],X). 


bigyear (Inyear, Year, Outyear):- Year >=Inyear, Outyear is Year. 
bigyear (Inyear, Year, Outyear):- Year <Inyear, Outyear is Inyear. 


minimum([X],X). 

minimum ([X|L],X) :-minimum (L, X2) , X<X2. 
minimum([X|L],X2):-minimum(L,X2),not(X«X2). 
max ([X],X). 

mas (X|L),X) :-max(L, XZ) ,X>X2. 

max ¢(X|L)],X2Z) :-max (L, XZ) ,not (X>X2) . 


member (X, [X|L]). 
member (X, [Y|L]):- member (X,L). 


deleteone (X, [X|L],L). 
deleteone (X, [Y|L], [Y|Z]):- deleteone (X,L,2Z). 


appendd (Element, List, [Element |List]). 
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/ * module proc-gen */ 


/* this module was the first alternative method of generating 
unit sets*/ 

/* of equipment. This module enumerates all of the combinations 
of unica 

/* sets of equipment and then returns the one with the most sets 
of equipment */ 


make up possibilities no dùüps l 1 1۳ n 
save (coreprocgen), 
write('core saved ctl c now'),nl,nl, 
setof(U,multiple sets of proc(Input,U),X), 
remove sublists(X,Z), 
tell(Fname), 
write(Z),statistics,told. 


multiple setsso5eprosdmputb X 
have them a11 (input, ll; SEES, 
tell(workproc),write(Sets),told, 
sortpplist(Sets,X). 


have them a TET TI: 
have them all(List comp proc,Setsofar,Newsets):- 
make up one set(List comp proc,;Out listocomp proejset. vem 
appendd (procurement (Year,Set,1),Setsofar,Newsetsofar), 
have them all(Out list comp proc,Newsetsofar,Newsets). 
have them all(Y,X,X). 
make up one set(List of components,Rest of components, 
NameG, Year) :- 
generation (NameG), 
bagof ([Cname, Camount], component (NameG, Cname, Camount),Clist), 


makeit(List of components,Rest of components,Clist,0,XYear)- 


makeit (Procured components left,Procured components left, 
[],YXear,Xear). 
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makeit (Procured components,Rest of components not used, 
Needed components, 
hates car Newsbtdtesteyeoqrn) 
firstmember (Needed . components, [NameC, AmountC]), 
member (procurement (Year, NameC,AmountP), 
Procured components), 
pare 9 ۶ و‎ lists (Year, AmountP,AmountC,NameC, 
Needed . components, 
New needed, Procured components,New rest of components), 
Cbigyear (Year, Latest year,Tyear), 
makeit(New rest of components, Rest of components not used, 
New needed, Tyear, New latest veal). 


take care of lists (Year, AmountP, AmountC, NameC, Needed components, 


New needed, Procured components,New_ rest of components) :- 
AmountP»AmountC, 
deleteone([NameC, AmountC],Needed components,New needed), 
T is AmountP-AmountC, 
deleteone (procurement (Year,NameC,AmountP), 
Procured components, 
New procured), 
appendd (procurement (Year, NameC, T) ,New_procured, 
New rest of components). 


take care of lists (Xear,AmountP,AmountC,NameC,Needed components, 
| New | needed,Procured components, 
New rest of _components) :- 
AmountP«AmountC, 
deleteone([NameC, AmountC],Needed components,New neededl), 
T is AmountC-AmountP, 
deleteone (procurement (Year,NameC,AmountP), 
Procured components, 
New procured), 
appendd ([NameC, T] ,New_neededl,New_ needed) . 


take care of lists (Year, AmountP, AmountC, NameC,Needed components, 
New needed, Procured . components,New rest of " components) :- 
" AmountP-AmountC, 
deleteone([NameC, AmountC],Needed components,New needed), 
deleteone (procurement (Xear,NameC, AmountP), 
Procured components, 
New rest of components). 
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sortpplist (IF II 

sortpplist (IXILII LET 
sortpplist (L1 L); 
insert item for sort (X, C37 C2) 


insert item for sort (X, [], [X]). 
insert item for sort (procurement (XYear, XName, XAmount), 
[procurement (YYear, YName, YAmount) |L], 
[procurement (XYear, XName, XAmount), 
procurement (YYear,YName,YAmount) |L]):- 
priority (XName,X), 
priority (XName, Y), 
XX 1S X+XYear*1000, 
YY is Y+YYear*1000, 
XA Yl 
insert item for sort (procurement (XYear, XName, XAmount), 
[procurement (YYear, YName, YAmount) |L1], 
[procurement (XYear, YName, YAmount) | L2]) :- 
priority (XName,X), 
priority (YName, Y), 
XX is X+XYear*1000, 
YY 18 Y+YYear*1000, 
XX>=YY, 


insert item for sort (procurement (XYear, XName,XAmount),L1,L2). 
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remove sublists (¥, 2) :- get rid of sublist (Y¥,2)- 
MEE rid of sublist (¥, ¥) := not (delete sublist(Y, Y¥1)) 


۳۳ 1 1 of sublist(Y,2):- desuctomsubliTsti(Y,Yl)y; 
۳ 0 of sublistwW(Y1,2). 


delete sublist (Y,Ynew):- 
member (X,Y), 
member (Xl, ¥), 
not (X=X1), 
length of list (X,Lx), 
length of list(Xl,Lx1), 
Jd. 
sublist (X, X1), 
deleteone (X,Y,Ynew). 


2۱۱۳ st([],X). 
sublist(X,X1):-  member(E,X),member(E,X1), deleteone(E,X,Xnew), 
sublist(Xnew,X1). 


/* General purpose utilities used in this module */ 


subset([],L). 
subset([X|L],L2):-singlemember (X,L2),subset(L,L2). 


firstmember([X|L],X). 


bigyear (Inyear, Year, Outyear):- Year >=Inyear, Outyear is Year. 
bigyear (Inyear, Year, Outyear):- Year <Inyear, Outyear is Inyear. 


minyear ( [procurement (Year, Equip, Amount) ] , Year, Amount). 

minyear ( [procurement (Year, Equip, Amount) |L], Year, Amount) :- 
minyear(L,Y,A),Year<yY. 

minyear ( [procurement (Year, Equip, Amount) |L], ¥, A) :- 
minyear (L, Y,A),not (Year<Y). 


minimum ([X],X). 
minimum([X|L],X):-minimum(L,X2),X«x2. 
minimum([X|L],X2):-minimum(L,X2),not(X«X2). 


member (X, [X|I]). 
member (X,[Y|L]):- member(X,L). 


deleteone(X, [X|L],L). 
deleteone (X, [Y|L], [Y|Z]):- deleteone (X,L,2Z). 


appendd (Element, List, [Element |List]). 


noth Of list ({X],1). 
Pea ote list apx|ih)],1)s;slength of Ilist(L,11),1 is 11-1 : 
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/ * module components */ 


/ * This module defines the parameters for the program. 

/ * It defines the following */ 

/ * 1. Equipment in a set of equipment x | 

/* 2. The modernization path for types of units */ 

/* 3. A numeric sequence for equipment used in sorted 
output. 

Priority (msediv, 1). priority(iatacsdiv,2). 


priority (atacsdiv, 3). 
forward(atacs,iatacs). forward(iatacs,mse). 


generation(atacs). generation(iatacs). 
generation (mse). 


amount (mse, s615,1). 
amount (iatacs,s615,1). 
amount (atacs,s615,1). 


/* priority of components for sorts */ 
priority (tire rdiS TOO. 

۳ 201) 

Priority (reso) 
priority(tte29) 009) 
priority(ttc39, 104). 

priority (ttc41, 105). 

priority (trel52 TOS): 
priority(trc15 im) 

priority (trecl1s54, 108). 


/* list of components x / 


component (atacs,trcl45,1). 
component (atacs,ttc29,1). 
component (atacs,trc113,1). 
component (iatacs,trcl115,1). 
component (iatacs,ttc39,1). 
component (iatacs,trc152,1). 
component (mse,ttc41,1). 
component (mse,trc153,1). 
component (mse,trc154,1). 
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/* module nopathsearch a7 

/* This implements search with an evaluation and cost function, 
s 

/* but without keeping of path lists. Answer returned is the */ 

/* final state. This can save much space, but the solutions 
found * / 

/* are not guaranteed optimal (nor will typing semicolons 
necessarily */ 


/* help). For an application, you must define 6 predicates: x 
is (a) successor (State, Newstate) (gives state transitions) */ 
/ * (b) goalreached (State) (defines when goal achieved)  */ 

PAX (c) eval(State,Evaluation) (estimates cost to the goal) */ 
/* (d) cost(State,Cost) (computes cost to a state from its 
description) x 

/ * (NOTE PRECEDING IS DIFFERENT FROM A*--PATHLIST NOT 
USED) * / 

/* (e) prunable(State,DState,Beststate,DBeststate) (defines 
conditions  */ 

/ × for pruning State from the agenda, given Beststate is 
the best */ 

AX state on the agenda according to D=cost+eval (optional)) 
* 

/ 


/ * (f) a top-level predicate that initializes things if needed 
and */ 


/* then calls astarsearch with two arguments, the starting 
A 

/* state and variable which will be the solution path. */ 
/* Note: "cost" must be nonnegative. The "eval" should be a 


lower bound */ 
/* on cost in order for the first answer found to be guaranteed 
optimal. */ 


/* this progrm has the declarations for quintus prolog x / 


:- dynamic beststate/2, agenda/3, usedstate/2, counter/1. 


search (Start,Ans) :- nopathsearch (Start,Ans). 

nopathsearch (Start, State) :- cleandatabase, add state (Start), 
repeatifagenda, pick best state(State), 5 
add successors (State), agenda(State,C,D), 
retract (agenda (State,C,D)), measurework. 

pick best state (State) :- asserta(beststate (dummy, dummy)), 
agenda(S,C,D), beststate(S2,D2), special less than(D,D2), 
Beeract (beststate(S2,D2)), asserta(beststate(S,D)), fail. 

ECE best state (State) e beststate(S,D), agenda(S2,C2,D2), 

not (S=S2), 


prunable(S2,D2,S,D), retract (agenda(S2,C2,D2)), fail. 
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pick best state (Stale) : تا‎ uc 


retract (beststate (State, D) ), not (D=dummy), !. 
add successors (Slate) :. Goalreacled Statea 
add "successors (se aac, oo Successor (State,Newstate), 
add state (Newstate), fail. 
add successors (State) :- retract ce, ay 
asserta(usedstate(State,C)), fail. 
addo state(Newstartie em cost (Newstate, Cnew), I 
agenda check (Newstate,Cnew), 
!, usedstate check(Newstate,Cnew), !, eval(Newstate,Enew), D is 


Enew + Cnew, 
asserta (agenda (Newstate,Cnew,D)), !. 


add state (Newstate) :- not (cost (Newstate, Cnew)), 

write('Warning: your cost function failed on path list ”), nl, 
| 
add state(Newstate) :- not(eval(Newstate,Enew)), 


write('Warning: your evaluation function failed on state '), 
write(Newstate), nl, !. 


agenda ۳ ۰ ۳ ces d ۵0 61۳0 2 ) 5 ۵ تام‎ ) > 
retract (agenda(S,C2,D2)), !. 
agenda check(S,C) :- agenda(S,C2,D2), !, fail. 


agenda check(S,C). 


usedstate check(S,C) d usedstate(S,C2), CSCO 
retract (usedstate(S,C2)), 

asserta(usedstate(S,C)), !. 
usedstate checks, ©) . 


repeatifagenda. 
repeatifagenda :- agenda(X,2,W), repeatifagenda. 


special less than(X, dummy) := !: 
special less than(X,Y) :- X«Y. 


cleandatabase ; checkabolish (agenda, 3), 
checkabolish(usedstate,2), 
checkabolish(beststate,2), checkabolish(counter,1). 


checkabolish(P,N) :- abolish(P,N), !. 
checkabolish(P,N). 
measurework ins countup(agenda(X, C, D); IE 
countup (usedstate(S,C),NB), 

tell(outstates),write(NA),write(' incompletely examined 
State(s) and '), 

wr ite (NB) "wv t-et- examined 

state(s)’ )) nl, print agenda,print usedstate, 

told ig 
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Geuntup (P, N) asserta(counter(0)), call(P), counter (K), 
retract (counter (K)), 

K2 is K+1, asserta(counter(K2)), fail. 
countup(P,N) :- counter (N), retract (counter (N)), !. 


append([],L,L). 
mesend([I|Lbl],L2,[IIL3]) :- append(L1,L2,03). 


print agenda: - 
write('agenda'),nl,agenda(X,Y,Z2), 
write(X),write(' '),write(Y),write(' "'),write(Z2),nl,fail. 


print agenda. 
print usedstate:- 
write (’usedstates’),nl,usedstate(X,Y), 


write(X),write(Y),nl, fail. 
Paint usedstate. 
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/ * module planner */ 


/* this is a protytype plannng program x 

/* it comes up with a distribution but does not consider the  */ 
/* priority of the units or the fact that distribution muse x / 
/* modernize the units as soon as possible x / 
/* This version of the planning program does not have the delay 
factor */ 

/* being used in it * / 


: dynamic mytrace/3. 
:-dynamic variable/1. 


mytrace (allocated, 0,0). 
variable (1). 


/* this traces how long a successor takes if the tracer flag is 
asserted */ 


successor (X,Y) :-tracer,statistics (runtime, CG), 
allocated (X,Y), 


statistics (runtime, Time) , retract (variable (Count)), 
Counter is Count+l, asserta(variable(Counter)), 
asserta (mytrace (allocated, Counter,Time)). 


successor (X,Y):- not(tracer) ,allocated(X,Y). 


/* allocate for procurement after unit is available */ 
allocated (X1,XNew2) :- 
unit (NameU,PriorityU,TypeU), 
member (procurement (YearP,EquipP,AmountP),X1), 
AmountP>0, 
unitstatus look unit (X1,NameU, YearU, EquipU), 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required), 
AmountP >= Required, 
Temp is YearU+3, 
bigyear(YearP,Temp,Giveyear), 
deleteone (procurement (YearP,EquipP,AmountP),X1,2X2), 
NewamountP is AmountP - Required, 
append if necessary (X2,X3,YearP,EquipP,NewamountP), 
appendd (given (NameU, EquipP, Giveyear, Required),X3,X4), 
not(any wrong priority(X4)), 
member (given (NameU, EquipU, YearU, Oldamount) , X4), 
YY is Giveyear +1, 


give to PDO or procurement (X4,NameU, EquipU, YY, Oldamount, X5) , 
get rid of extraneous proc (EquipU, X5, XNew2). 
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/* when more than one procurement is necessary for the unit  */ 


allocated (Xl, XNew2) :- 
unit (NameU, PriorityU, TypeU), 
unitstatus look unit (X1,NameU, YearU,EquipU), 
forward (EquipU,EquipP), 
amount (EquipP, TypeU, Required), 
bagof (P,member (procurement (_,EquipP,P),X1),Plist), 
addit (Plist,AmountP), 
AmountP >= Required, 
bagof(Q,proc for equip (EquipP, X1,Q),Pelist), 
delete all | e (EquipP, KT AVE 
get enough (Pelist, pom OutlistyTvear), 
Temp is YearU+3, bigyear(Tyear, pom cca 
بت وه‎ one 
appendd (given (NameU, EquipP,Outyear,Required),X3,X4), 
not(any wrong priority(X4)), 
member (given (NameU, EquipU,XYearU,Oldamount),X4), 
YY is Outyear +1, 


give to PDO or procurement (X4,NameU, EquipU, YY, Oldamount, X7), 
get | rad of _9 procurements (X7,X8), 
ger Ec of extraneous proc (EquipU,Xx8,XNew2). 


rid Oof extraneous proc (Equip,X,Y):- 
member(procurement (Year,Equip,Amount),X), 
not (anybody at lower levels (X,Equip)), 
deleteone (procurement (Year,Equip,Amount),X,X1), 
appendd (pdo (procurement, Year, Equip, Amount) ,X1,Y). 


get rid of extraneous proc (Equip, X,X). 
anybody at lower Prevos ESE, I crum) 
forward(X, Equip), 
unitstatus look equip(List,X). 
anybody at lower LEVELS ESE, EGUIp): ~ 
forward (X, را‎ 1۳1 1 
anybody at lower levels(List,X). 


append if necessary(List,Newlist,YearP,EquipP,NewamountP):- 
NewamountP»0, 


appendd (procurement (YearP,EquipP,NewamountP),List,Newlist). 


append if necessary (List,List,YearP,EquipP,NewamountP):- 
NewamountP=0. 
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unitstatus look year(List,Year):- unit(Name, , ); 
unitstatus look unit (List,Name,Year,E1). 

unitstatus look unit (List,Name,Year,Equip):- 
bagof([YY,EE],look for given(List,Name,YY,EE),U), 
maxequip (U, Year,Equip). 


look for given(List,Name,Year,Equip):- 
member (given (Name, Equip, Year, Amount) ,List). 
unitstatus look equip (List,Equip) :- unit (Name, ,_ ),; 
unitstatus_look_unit (List, Name, Year, E1) ,Equip=El. 


maxequip([[YY,EE]],XYY,EE). 
maxequip([[YY,EE]|L],XYY,EE):-maxequip (L,Y1,E1),YY»Y1. 
maxequip([[YY,EE]|L],Y1,E1):-maxequip(L,Y1,E1),not(YY»Y1). 


proc for equip (EquipP, X1, procurement (Year, EquipP, Amount) ) : = 
member (procurement (Year, EquipP, Amount) ,X1). 


/* when the amount in the minimum procurement is the correct 
amount */ 
get enough (List, Required, Outlist, Year) :- 
Required>0, minyear (List, Tyear,Amount), 
T is Required - Amount, 
T=0, deleteone(procurement (Tyear,X,Amount),List,Outlist), 
Year is Tyear. 


/* when the amount in min procurement is not enough x | 
get enough (List, Required, Outlist, Year) :- 
Required>0, minyear(List,Tyear,Amount), 
T is Required - Amount, T>0, 
deleteone (procurement (Tyear,X,Amount),List,Toutlist), 
get_enough (Toutlist,T, Outlist, Year). 


/* when the amount in the min procurement is more than enough */ 
get enough (List, Required, Outlist, Year) :- 
Required>0, minyear (List, Year,Amount), 
T is Required - Amount, 
T«0, deleteone (procurement (Year,X,Amount),List,Toutlist), 
Excess is Amount- Required, 
appendd (procurement (Year, X,Excess) ,Toutlist, Outlist). 
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/* this rule makes sure units with different Doe E 
/* have different priority equipment 


any ۷01 priority(List):- 
۱۹۲۱1۱ م11‎ ۳172 ), 
unit (N2,P2, ), 
not(N1-N2), 
ungestatus look unit (List,N1,Y1,E1), 
unitstatus look Unit (List, N2, 12, BE2)y 
priority (ET, PE1), 
priority(E2,PE2), 
priority is bad(El1,E2,Y1,Y2,P1,P2,PE1,PE2). 


/* these are the two cases of non valid priorities  */ 
priority is bad(E1,E2,¥1,Y2,P1,P2,PE1,PE2) :- 

E1=E2, 

EPA, 

ney 2. 


priority is bad(El,E2,Y1,Y2,P1,P2,PEl1,PE2):- 
not (E1=E2), 
P2, 
PE1>PE2. 


give to PDO or procurement (O_ state, Name, Equip, Year, 
Amount,N state) :- 
check for a unit(O state,Equip), 
appendd (procurement (Year,Equip, Amount),O state,N state). 


eheck for a unit (State,Equip):- forward(O equip, Equip), 
 unitstatus look equip(State,O equip). 


check for a unit(State,Equip):- forward(O equip,Equip), 
"check for a unit (State,O equip). 


/* this predicate works when a unit doesnt need the equipment 
you are giving */ 
/* and there is a previous generation * / 
give to PDO or procurement (Old state,Name,Equip, Year, 
` Amount, New State):- 
forward(Old equip,Equip), 
not(unitstatus look equip(Old state,Old equip)), 
get rid of remaining procurements (Equip,Old state,Old statel), 


appendd (pdo (Name, Year, Equip, Amount), Old statel, New State). 
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/* this works when a unit does not need the equipment you are 
Giving 


give to PDO or procurement (Old state Lear, 
" Amount, New State):- 
not(forward(Old equip,Equip)), 


get rid of remaining procurements (Equip,Old state,Old statel), 
appendd (pdo (Name, Year, Equip, Amount) ,Old_statel,New State). 


get rid of remaining procurements (X,[],[]).- 
get rid of remaining procurements (X, 
[procurement (Year, X, Amount) |L], 
[pdo (procurement, Year, X, Amount) |LL]):- 
get rid of remaining procurements (X,L,LL). 
get rid of remaining procurements (X, 
[Transaction|L],[Transaction|LL]):- 
get rid of remaining procurements(X,L, Ll) . 


get rid of 0 procurements (Old state, New state):- 
| deleteall(Old state,New state). 


/* the evaluation function calculates the least number of */ 
/* givens needed to get a unit to the highest procurement  */ 


eval (List, Z) :-bagof (U, priorities (list, U), 5 ۲ 1 mta 
minimum (Prioritylist, 2). 


priorities (List, Return) >= unite (Name, _ , ), 
unitstatus look unit(List,Name, ,Equip), 
priority (Equip, Return). 


/* the cost function is the number of time periods the plan lasts 


sø 


cost (List, 2) :-bagof (U,unitstatus look Year (LISE, U),Givelist), 
addit (Givelist, Zi 


/* define the goal of the program x / 

goalreached(X):- get rid of 0 procurements(X, New state), 
subgoal(New state). 

subgoal(New state):- not(member(procurement( , , ),New state)). 


subgoal(New state):- not(allocated(New state,X)). 
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A this is a format for the program * / 
۳ Searching f1le(List,Fname) :=any ee ya ESC) 
tell (Fname),write(’it cannot be done’ ۳ 
write('there is a problem with the units data'),nl, 
write('equipoment already out of priority sequence'),nl, 
told halt. 


née Searching file (List, Fname) :- 
not (tracer), 
save(coreplanner), 
write('core image saved you can ctl c now'),nl, 
search(List,X),sortplan(X,Y),tell(Fname),write(Y),statistics, 
countup (agenda(A,B,C),NA),write (NA),write(':incomplete ۲( 
countup (usedstate (S,SS),NB),write(NB),write(’:examined /'), 
told,halt. 


danel searching file (List,Fname) :- 
tracer, 
save(coreplanner), 
write('core image saved you can ctl c now'),nl, 
search (List,X),sortplan(X,Y), 
tell (Fname) ,write(Y),statistics, 
countup (agenda (A,B,C) ,NA),write (NA) ,write(’:incomplete '), 
countup (usedstate(S,SS),NB),write(NB),write(’:examined '),nl, 
Print mytrace, told,halt. 


Print myltrace:=nl, 
write ("trace of execution times of successor calculations"), 
me mytrace (A,B,C) ,printone (A,B,C) ,nl,fail. 

print mytrace. 


printone (A,B,C) :-write (A) ,write (" ip 
write(B),write(" "),write(C). 


/* this is the fall through if it cannot do the search */ 
done mecarching — file (List,Fname):-  tell(Fname), 
write('it cannot be done’ l- told halt. 


sortplan([],[]). 
ses plan ((A{L1),b2) :-sortplan(L1,L3),insert in plan (X,1L3,1L2) . 


insert .in plan(X, alee cle) oe 

insert pone olan (x, [X BS انا‎ cost uns rant Xcost), 
cost in plan (Y, Ycost), Xcost<Ycost. 

insert ۳۲۳۱۵ رح‎ ۱۰ ۱۳1 ۱, ] ۱۳۶۱: cost SIN Blank, Xcost), 
cost in plan(Y, Ycost), Xcost>=Ycost, 
insert in plan(X,L1,L12). 


cost in plan(given (Unit, 1 eal OSE) unit (Unit, Priority, ), 
Cost is ED US 
Cost in plan (pdo (Unit, Vedr ere) OSE): Cose 1s (۱1 681 ۶ 


5l 


/* General Purpose Utilities for the module */ 


prunable(State,D,BestState,Dbest):- 
check permutation (State, BestState),!. 


check permutacton(siace |) Statz iis 
subset (Statel,State2), 
subset (State2,Statel),!. 


subset([],L). 
subset ([X|L],L2) :-singlemember (X,L2),subset (L,L2) . 


singlemember (X, [X|L]):-!. 
Singlemember (X, [Y|L]):-singlemember(X,L). 


firstmember([X|L],X). 


addit ([X],X). 
addit([X|L],X1):- addit(L,X2),X1 is X*X2. 


bigyear (Inyear, Year, Outyear):- Year >=Inyear, Outyear is Year. 
bigyear (Inyear, Year, Outyear):- Year <Inyear, Outyear is Inyear. 


concat (I L L- 
concat([X|Bb1],L2,[X|5n3]):-concatW( 51i; 52005 


minyear([procurement (Xear,Equip,Amount)],Xear,Amount). 

minyear ( [procurement (Year, Equip, Amount) |L], Year, Amount) :- 
minyear(L,Y,A),Year«cY. 

minyear ( [procurement (Year, Equip, Amount) |L], ¥, A) :- 
minyear (L, Y,A) ,not (Year<yY). 


minimum([X],X). 
minimum([X|L],X):-minimum(L,X2),X«X2. 
minimum([X|L],X2):-minimum(L,X2),not(X«X2). 


max ([X], X). 
max ([XIL],;, X) :-max (L; X2) 2 
max ([X|L], X2) :-max (L, X2) , not (X>X2). 


member (X, [X|L]). 
member(X,[Y|L]):- member(X,L). 


deleteone (X, [X|L],L). 
deleteone (X, [Y|L], [Y|Z]):- deleteone(X,L,2@). 


deleteall([],[]). 
deleteall([procurement(X,Y,0)|L],L2):- deleteall(L,L2). 
deleteall([Yl|L],[Yl|L2]):-not(Y-2procurement (X,XX,0)), 
deleteall(L,L2). 
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ele all e(Equap, [], []) - 

delete all e(Equip, [procurement (X, Equip, Y) |L],L2):- 

delete all e(Equip,L,L2). 

delete all e(Equip, [YI|L], [Y| L2]) :-not (Y2procurement (X, Equip, Z)), 
degjetemaT Ec Equrp CE2) 


appendd (Element,List,[Element|List]). 


Hupiscate in list (List) := 
member(X,List),deleteone(X,List,Newlist), 
member (X,Newlist). 


remove duplicates(X,X):-not(duplicate in list(X)). 
remove duplicates (Listin, [Z|Listout]):- 
member (Z, Listin), 
deleteall gp(Z,Listin,Tlist), 
remove duplicates (Tlist, Listout). 


۰۳ 911 gp(X, [], [1]). 
geweecalil gp (x, [X|L],L2):-deleteall gp(X,L,L2). 
Semeceall gp(xX, (Y|L], [Y|L2]):-not (Y=xX), deleteall gp(X,L,L2). 


Bengqen Of list ([X],1). 
wor Irst([X|b],I):-length of list(L,I1),I is Il-1. 
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/ * module planner6 */ 


/* this is a protytype plannng program * / 

/* it comes up with a distribution but does not consider the */ 
/* priority of the units or the fact that distribution must * / 
/* modernizse the units as soon as possible x / 


/* this version of the planner program utilizes a delay factor as 


part of */ 
/* the cost and evaluation of the soution. 
27 


: -dynamic mytrace/3. 
: -dynamic variable/1. 


mytrace (allocated, 0,0). 
variable (1). 


/* this traces how long a successor takes */ 


successor (X,Y) :-tracer, statistics (runtime, CG) , 
allocated (X,Y), 


statistics (runtime, Time) , retract (variable (Count) ) , 
Counter is Count+1, asserta (variable (Counter) ) , 
asserta (mytrace (allocated, Counter, Time) ). 


Successor(X,Y):- not(tracer),allocated(X,Y). 
/* allocate for procurement after equipment is available */ 


allocated(X1,XNew2) :- 
unit (NameU, PriorityU,TypeU), 
member (procurement (YearP, EquipP,AmountP) ,X1), 
AmountP>0, 
unitstatus look unit (X1,NameU, YearU,EquipU), 
forward (EquipU,EquipP), 
amount (EquipP,TypeU,Required), 
AmountP >= Required, 
Temp is YearU+3, 
bigyear(YearP,Temp,Giveyear), 
deleteone (procurement (YearP,EquipP,AmountP),X1,X2), 
NewamountP is AmountP - Required, 
append if necessary (X2,X3,YearP,EquipP,NewamountP), 
appendd (given (NameU, EquipP, Giveyear, Required) ,X3,X4), 
not (any wrong priority (X4)), 
member (given (NameU, EquipU, YearU, Oldamount) , X4), 
YY is Giveyear +1, 
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give to PDO or procurement (X4,NameU, EquipU,YY,Oldamount,X5), 
modify delay if necessary (X5,X7, Temp, Giveyear), 
get rid of extraneous proc (EquipU, X7,XNew2). 


/* when more than one procurement is necessary for the unit  */ 


allocated(X1,XNew2) :- 

unit (NameU,PriorityU,TypeU), 

unitstatus look unit (X1,NameU, YearU,EquipU), 
forward(EquipU,EquipP), 

amount (EquipP,TypeU,Required), 

bagof (P, member (procurement ( ,EquipP,P),xX1),Plist), 
addit (Plist,AmountP), 1 

AmountP >= Required, 
bagof(Q,proc for equip (BquipP, X1,Q),Pelist), 
delete all e(EquipP,X1,X2), 

get enough (Pelist, Required, Outlist,Tyear), 

Temp is YearU+3, 

bigyear (Tyear, Temp, Outyear), 

concat (Outlist,X2,X3), 

appendd (given (NameU, EquipP,Outyear,Required),X3,X4), 
not (any wrong priority (X4)), 

member (given (NameU, EquipU,YearU,Oldamount),X4), 

YY is Outyear +1, 


give to PDO or procurement (X4,NameU, EquipU, YY, Oldamount, X6), 
modify edelayereenecessany (X67) Temp, 0uryear), 
gec rid of 0 _ procurements (X7, X8), 
get EN of  extraneous proc(EquipU,X8,XNew2). 


modify .delay if necessary (Oldlist, Oldlist, Year, Year). 
/* unit given year as soon as the equipment is ready */ 
modify delay 1f necessary (Oldlist,Newlist, Unityear, Giveyear) :- 
Giveyear > Unityear, 
Diff is Giveyear - Unityear, 
deleteone (delay (Oldamount) ,Oldlist,Templist), 
Newdiff is Oldamount + Diff, 
appendd (delay (Newdiff) , Templist,Newlist). 


modify delay if necessary(Oldlist,Oldlrzst,Unityear,Giveyear):- 
Giveyear<Unityear. 


55 





get rid of extraneous proc (Equip,X,Y):- 
member (procurement (Year, Equip, Amount) ,X), 
not (anybody at lower levels(X,Equip)), 
deleteone (procurement (Year, Equip, Amount) ,X,X1), 
appendd (pdo (procurement, Year, Equip, Amount) ,X1,Y). 


Geta Teme _extraneous_proc (Equip, X, KI 

anybody at lower levels (List,Equip):- 
forward(X,Equip), 
unitstatus look equip(List, xX). 


anybody at lower levels (List, Equip) :- 
forward (X, Equip) , 
anybody at lower levels(List,X). 


append if necessary (List,Newlist,YearP,EquipP,NewamountP):- 
NewamountP>0, 
appendd (procurement (YearP,EquipP,NewamountP),List,Newlist). 


append if necessary (List,List,YearP,EquipP,NewamountP):- 
NewamountP=0. 


unitstatus look year(List, Year):- unit (Name, , ), 
unitstatus | look unit (List, Name, Year, El). 


unitstatus look "unit (List, Name, Year, Equip) :- 
bagof ([YY, EE],look for given(List,Name, YY,EE),U), 
maxequip (U, Year, Equip) .- 


look for given(List,Name, Year, Equip) :- 
member (given (Name, Equip, Year,Amount) ,List). 


unitstatus look equip(List,Equip):- unit (Name, , ), 
unitstatus look unit (List,Name,Year,E1), 
Equip-El. 


maxequip([[YY,EE]],YY,EE). 
maxequip ([[YY,EE]|L],YY,EE) :-maxequip(L,Y1,E1),YY>Y1. 
maxequip ([[YY,EE]|L]),Y1,E1) :-maxequip(L, Y1,E1),not(YY>Y1). 


proc for equip (EquipP, X1,procurement (Year, EquipP, Amount) ) :- 
member (procurement (Year, EquipP, Amount) ,X1). 
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moxeneugh(List,Required,Outlist,YXear):- 
Required»0, minyear(List,Tyear,Amount), 
T is Required - Amount, 
T=0, deleteone(procurement (Tyear,X,Amount),List,Outlist), 
Year is Tyear. 


/* when the amount in min procurement is not enough x / 
get enough (List, Required, Outlist, Year) :- 
Required>0, minyear (List, Tyear, Amount), 
T is Required - Amount, T>0, 
deleteone (procurement (Tyear,X,Amount),List,Toutlist), 
get enough (Toutlist, T, Outlist, Year) . 


/* when the amount in the min procurement is more than enough */ 
get enough (List, Required, Outlist,Year):- 

Required>0, 

minyear (List, Year, Amount) , 

T is Required - Amount, 

TCO, 

deleteone (procurement (Year,X,Amount),List,Toutlist), 

Excess is Amount- Required, 

appendd (procurement (Year,X,Excess),Toutlist,Outlist). 


/* this rule makes sure units with different priority */ 
/* have different priority equipment x / 


ES kong priority(Lbist):- unit(N1,P1, ), unit(N2,P2, ), 
not (N1=N2), unitstatus look “unit (List, NI YL, El), 
unitstatus look unit (List, N2, Y2,E2), 
priority (E1,PE1), EN EAE 
EXdority is bad(El,E2,Y1,Y2,P1,P2,PE1,PE2). 


/* these are the two cases of non valid priorities  */ 
۶۳۲ 1 is bad(El,E2,Y1,Y2,PI,P2,PEI,PE2):- 
El-E2,  Pl1«P2, Y1>Y2. 


peteriey is bad(ELl,E2,Y1,Y2,P1,P2,PEl1,PE2):* 
not (E1L=E2), P1<P2, PE1>PE2. 


give to PDO _ or procurement (O state, Name, Equip, Year, Amount, 
N | State):- 
check for a unit(O state,Equip), 
appendd (procurement (Year,Equip,Amount),O state,N state). 


check for a unit(State,Equip):- forward(O equip,Equip), 
 unitstatus look equip(State,O " equip). 


check for a unit(State,Equip):- forward(O equip,Equip), 
check for a unlit (State,O equip). 
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/* this works when a unit does not need the equipment you are 
giving */ 
/* and there is a previous generation xd 


give to PDO or procurement (Old state,Name,Equip,Year,Amount, 
New State):- 
forward (Old equip, Equip), 
not(unitstatus look equip(Old state,Old equip)), 


get rid of remaining procurements (Equip, Old state,0ld statel), 


appendd (pdo (Name, Year,Equip,Amount),Old statel,New State). 


/* this works when a unit does not need the equipment you are 
giving */ 


give to PDO or procurement (Old state,Name,Equip, Year, 
Amount, New State):- 
not(forward(Old equip,Equip)), 


get rid of remaining procurements (Equip,Old state,Old statel), 


appendd (pdo (Name, Year,Equip,Amount),Old statel,New State). 


get ridfos _remaining_procurements (X, Bled) ee 
get Sade of remaining procurements (X, 
[procurement (Year,X,Amount) |L], 
[pdo (procurement, Year, X,Amount) |LL]):- 
get rid of remaining procurements (X, L, LL) . 
get rid of remaining procurements (X, [Transaction|L], 
[Transaction|LL]):- 
get _ rid of remaining procurements (X,L,LL) . 


get_rid of 0 procurements (Old state, New state) :- 
~deleteall(Old_ state,New state). 


/* the evaluation function calculates the least number of */ 
/* givens needed to get a unit to the highest procurement  */ 


eval (List, Z) :-bagof (U, priorities (List, U),Prreritylist). 
minimum(Prioritylist,Z). 
priorities (List, Return) :- unit (Name, , ), 
unitstatus look unit (List,Name, ,Equip), 


priority (Equip,Return). 
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/* the cost function is the number of time periods the plan lasts 

plus */ 

/* The delays incurred in this plan when equipment was available 

and */ 

/* units were not*/ 

Gest (bist, Z) :-bagof(U,unitstatus_ look year(List,U),Givelist), 
addit (Givelist,ZZ), member (delay (YY), List), 
dfactor (RR), Z is ZZ-*YY*RR. 


/* define the goal of the program x / 


gearecached(xX):- get _ pura of 0 procurements(X, New state), 
subgoal(New _ state). 

subgoal (New state):- not(member(procurement( , , ),New state)). 

subgoal(New state):- not(allocated(New state, prm 


/* this is a format for the program x / 
done searching file(List,Fname):-any wrong priority (List), 
tell(Fname), ,Write('it cannot be done' jJ ne 
write('there is a problem with the units data’),nl, 
write (’equipoment already out of priority sequence’),nl, 
told halt. 


ones Searching file (List, Fname) :- 
not (tracer), 
save(coreplanner), 
write('core image saved you can ctl c now'),nl, 
appendd(delay(0),List,Newlist),write(Newlist), 
search (Newlist,X),sortplan(X,Y), 
tell (Fname) ,write(Y),statistics, 
countup (agenda (A,B,C) ,NA) ,write (NA) ,write(’ :incomplete 
countup (usedstate(S,SS),NB) ,write (NB) ,write(’ :examined 
told,halt. 


۳ 
DE 


done searching file (List, Fname) :- 
racer, 
Save (coreplanner), 
write('core image saved you can ctl c now'),nl, 
appendd(delay(0),List,Newlist), 
search(Newlist,X),sortplan(X,XY), 
tell(Fname),write(Y),statistics, 
countup (agenda(A,B,C),NA),write(NA),write(':incomplete '), 
countup (usedstate(S,SS),NB),write(NB),write(':examined '),nl, 


print mytrace, 
told, halt. 


EINE o mytrace:-nl, 
write("trace of execution times of successor calculations"), 
nl,mytrace (A,B,C), ,printone (A,B,C),nl, fail. 

print mytrace. 
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printone(A,B,C):-write(A),write(" Hs 
write(B),write(" "),write(C). 


/* this is the fall through if l€ cannot dol F7 


16۳9۶ 5۵ ۱۲9 ۳ ۱ mets 
tell(Fname),write('it cannot be done'),told,halt. 
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/* module planner? */ 


/* this is a protytype plannng program ii 

/* it comes up with a distribution but does not consider the */ 
/* priority of the units or the fact that distribution must n 
/* modernizse the units as soon as possible m 


/* This version of the planning program uses the delay factors 
BUC */ 

/* provided information about the number of times a predicate 
7 


/* in the successor rule failed and succeeded. x / 


:-dynamic mytrace/3. 
:-dynamic variable/1. 
:-dynamic tposvariable/2. 
:-dynamic tnegvariable/2. 
mytrace(allocated,0,0). 
variable(1). 


/* this traces how long a successor takes  */ 


successor (X, Y) :-tracer, statistics (runtime,CG), 
allocated (X,Y), 


statistics (runtime, Time) , retract (variable (Count)), 
Counter is Count+l, asserta(variable(Counter)), 
asserta (mytrace (allocated, Counter,Time) ). 


successor (X,Y) :-bigtrace,traceallocated (X,Y). 


۱۳۱۱ E) : -call (P),incriment poscall(P). 
onn E): -incriment negcall(P), fail. 


mccuentonegcall(P):-get first pred(P,FIRST), 
۳۲۳۲ ۰ 1f Chere POS (EIRST, COUNT), 
COUNTER is COUNT#H1, 
asserta (tnegvariable (FIRST, COUNTER)),!. 
Eaccmentoposcall(P):-get first pred(P,FIRST), 
retracthir therelneg(EIRST, COUNT), 
COUNTER is COUNT+1, 
asserta(tposvariable(FIRST,COUNTER)),!. 
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get first ۳0 ۳ ۳ ۶ P . SEE 


get first Ipred(E, FIRST): P  / ; 


get first pred (P, FIRS TE SESE T E 


get _EIISE ۱۵ ۲ FIRST): -P=.. (EIRST | 
get ۱1 2 pred FIRST) :-P=.. (FIRST MEE 
get first pred(P,FIRSI): P= [ETRS NEL 
get first øfed(P, FIRST) SPS SR FE ERE aT 
get first pred(P, FIRST) ۰ ۶ ۶ ee 
, T 
, , 


retract if there pos (FIRST, COUNT) :-tposvariable (FIRST, COUNT), 


retract (tposvariable (FIRST, COUNT)). 
retract if there pos (FIRST O). 
retract Sif” there_neg (FIRST, COUNT) :-tnegvariable (FIRST, COUNT) , 


retract (tnegvariable (FIRST, COUNT)). 
retract 1f there 0) 


successor (X, Y):- not (tracer) ,not (bigtrace),allocated (X,Y). 
/* allocate for procurement after unit is available */ 


traceallocated(X1,XNew2) :- 
unit (NameU,PriorityU,TypeU), 
tcount (member (procurement (YearP,EquipP,AmountP),X1)), 
AmountP»0, 
tcount(unitstatus look unit (X1,NameuU, Equip M 
forward (EquipU, EquipP) , 
tcount (amount (EquipP, TypeU, Required) ), 
AmountP >= Required, 
Temp is YearU+3, 
tcount (bigyear (YearP, Temp, Giveyear) ), 
deleteone (procurement (YearP,EquipP,AmountP),X1,X2), 
NewamountP is AmountP - Required, 
append if necessary (X2,X3,YearP,EquipP,NewamountP), 
appendd (given (NameU, EquipP,Giveyear,Required),X3,X4), 
tcount (not(any wrong priority(X4))), 
member (given (NameU, EquipU, YearU, Oldamount) , X4), 
YY is Giveyear +1, 
tcount(give to PDO or procurement (X4,NameU, 

EquipU, YY, Oldamount,X5)), 

modify delay if necessary (X5,X7,Temp, Giveyear), 
get rid of extraneous prec Paquin ew TET 


/* when more than one procurement is necessary for the unit */ 
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traceallocated(X1,XNew2) :- 

unit (NameU,PriorityU,TypeU), 

tcount(unitstatus look unit (X1,NameU, YearU,EquipU)), 
forward (EquipU, EquipP) , 

amount (EquipP, TypeU, Required), 

tcount (bagof (P,member (procurement (_,EquipP,P),X1),Plist)), 
addit (Plist,AmountP), 

AmountP »- Required, 

tcount (bagof(O,proc for equip (EquipP,X1,Q),Pelist)), 
delete all e(EquipP,X1,X2), 

get enough (Pelist, Required, Outlist,Tyear), 

Temp is YearU+3, 

bigyear (Tyear, Temp, Outyear), 

concat (Outlist,X2,X3), 

tcount (appendd (given (NameU, EquipP, 

Outyear,Required),X3,X4)), 

tcount (not(any wrong priority (X4))), 

member (given (NameU,EquipU,YearU,Oldamount),X4), 

YY is Outyear +1, 
tcount (give to PDO or procurement (X4,NameU,EquipU, 

YY,Oldamount,xX6)), 

modify delay if necessary (X6,X7,Temp,Outyear), 

get rid of 0 procurements (X7,X8), 

get rid of extraneous proc (EquipU,X8,XNew2). 


allocated(X1,XNew2) :- 
unit (NameU,PriorityU,TypeU), 
member (procurement (XearP,EquipP,AmountP),X1), 
AmountP»0, 
unitstatus look unit (X1,NameU,YearU,EquipU), 
forward (EquipU,EquipP), 
amount (EquipP,TypeU,Required), 
AmountP »- Required, 
Temp is YearUt3, 
bigyear (YearP, Temp, Giveyear), 
deleteone (procurement (YearP,EquipP,AmountP),X1,Z2), 
NewamountP is AmountP - Required, 
append if necessary (X2,X3,YearP,EquipP,NewamountP), 
appendd (given (NameU, EquipP,Giveyear,Required),X3,X4), 
not(any wrong priority(X4)), 
member (given (NameU,EquipU,YearU,Oldamount),X4), 
YY is Giveyear +1, 


give to PDO or procurement (X4,NameU, EquipU, YY, Oldamount, X5), 


modify delay if necessary (X5,X7,Temp,Giveyear), 
get rid of extraneous proc(EquipU,X7,XNew2). 
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/* when more than one procurement is necessary for the unit  */ 


allocated(X1,XNew2) :- 
unit (NameU,PriorityU, TypeU), 
unitstatus look unit (X1,NameU,YearU,EquipU), 
forward (EquipU, EquipP), 
amount (EquipP, TypeU, Required), 
bagof (P,member (procurement (_,EquipP,P),X1),Plist), 
addit (Plist,AmountP), 
AmountP >= Required, 
bagot (0, proce for equip (Equip? XI, O) TE eS 
delete all e (EquipP,X1,X2), 
get enough (Pelist, Required, Outlist,Tyear), 
Temp is YearUt3, 
bigyear (Tyear, Temp, Outyear), 
concat (OutlistyywZ X57 
appendd (given (NameU, EquipP, Outyear, Required) ,X3,X4), 
not (any wrong priority (X4)), 
member (given (NameU, EquipU, YearU, Oldamount) ,X4), 
YY is Outyear +1, 


give to PDO or procurement (X4,NameU, EquipU, YY, Oldamount, X6), 
modify delay if necessary (X6,X7,Temp, Outyear), 
0 rid of 0 procurements (X7, x8), 
get rid of extraneous proc (EquipU, X8,XNew2). 


modify delay if necessary (Oldlist, Oldlist, Year, Year) . 


modify delay if necessary (Oldlist,Newlist, Unityear, Giveyear) := 
Giveyear > Unityear, Diff is Giveyear - Unityear, 
deleteone (delay (Oldamount) , Oldlist,Templist), 
Newdiff is Oldamount + Diff, 
appendd (delay (Newdiff),Templist,Newlist). 


modify delay if necessary (Oldlist, Oldlist, Unityear, Giveyear) :- 
Giveyear<Unityear. 


get _ rid of extraneous) proc (squire. tis 
member (procurement (Year,Equip, Amount) ,X), 
not (anybody at_lower levels (xX, Equip)), 
deleteone (procurement (Year, Equip,Amount),X,X1), 
appendd (pdo (procurement, Year,Equip, Amount) ,X1,Y). 


get rid of extraneous _ proc (Equip, X,X). 
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anybody at lower levels(List,Equip):- forward(X,Equip), 
unitstatus look equip (List,X). 


anybody at lower levels(List,Equip):- forward(X,Equip), 
anybody at lower levels(List,X). 


append if necessary (List,Newlist,YearP,EquipP,NewamountP):- 
NewamountP»0, 


appendd (procurement (YearP,EquipP,NewamountP),List,Newlist). 


append if necessary (List,List,YearP,EquipP,NewamountP):- 
NewamountP=0. 


P@testatus look year (List, Year) :- 
unit(Name, , ), unitstatus look unit (List,Name,Year,E1). 


unitstatus look unit (List,Name, Year,Equip):- 
bagof([YY,EE],look for given(List,Name,YY,EE),U), 
maxequip(U,Year,Equip). 


lek for given(List, Name, Year, Equip) :- 
member (given (Name, Equip, Year, Amount),List). 


unitstatus look equip(List,Equip):-  unit(Name, , ), 
unlit sal us LOOK UnIL (LiSL Name, lear, El), 
Equip=El. 


maxequip([[YY,EE]],YY,EE). 
maxequip([[YY,EE]|L],YY,EE):-maxequip(L,Y1,E1),YY»Y1l. 
maxequip ( [ [YY, EE] |L], Y1,E1) :-maxequip (L, Y1,E1),not(YY>Yl). 


Et Or equip (EquipP, X1, procurement (Year, EquipP, Amount) ):- 
member (procurement (Year,EquipP, Amount) ,X1). 


/* when the amount in the minimum procurement is the correct 
amount */ 
get enough (List, Required, Outlist, Year) :- 
~ Required>0,minyear (List, Tyear, Amount), 
T is Required - Amount,  T-0, 
deleteone (procurement (Tyear,X,Amount),List,Outlist), 
Year is Tyear. 


/* when the amount in min procurement is not enough x | 
femmeriough (List, Required, Outlist, Year) :- 
Required»0, minyear(List,Tyear,Amount), 
T is Required - Amount,  T»0, 
deleteone (procurement (Tyear,X,Amount),List,Toutlist), 
gucreenough(Toutlist,T,Outlrst,rear). 
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/* when the amount in the min procurement is more than enough */ 
get enough (List, Required, Outlist, Year) :- 
^ Required»0,  minyear(List,Year,Amount), 
T is Required - Amount, T«0, 
deleteone (procurement (Year, X, Amount), List, Toutlist), 
Excess is Amount- Required, 
appendd (procurement (Year,X,Excess),Toutlist,Outlist). 


any wrong priority(List):- unat(Nl EL ۱ unit (l2 pO E 
not (N1=N2), 
unitstatus look unit (List,N1,Y1,E1), 
unitstatus look uni List (1 22 2 EZ) 
priority (E1,PE1), bei EM PZ 
priority is bad(El1,E2, Yl/Y2, Pi) PZ EEI RE): 


/* these are the two cases of non valid priorities */ 
priority is bad(El,E2,Y1,Y2,P1,P2,PEl,PE2):- EI-E2, PISP2 1M LU 
priority is bad(El,E2,Y1,Y2,Pl,P2ZQBREUAEEZUEL ToC EN DEP 
P1<P2 EREI ERES 
give 0 EDO OF AP OC een SE Oe state,Name, Equip, Year, 
Amount, ۱۲ 
check for a unit(O state,Equip), 
appendd (procurement (Year, Equip, Amount),0 state,N state). 


check for a unit (State, Equip):- forward(0 equip,Equip), 
 unitstatus . look 60۳ ۵2۲6 ۵ 0 


check for a unit (State,Equip):- forward(O equip,Equip), 
Check ۶5 ۰ ۳ 5 ۱ nE 


/* this works when a unit does not need the equipment you are 
Giving 
ux and there is a previous generation ay 
give to PDO or procurement (Old state,Name,Equip,XYear, 
` Amount, New اه ار‎ 
forward (Old . equip,Equip), 
not(unitstatus look equip (Old state, Old equip), 
get rid of remaining procurements (Equip,Old state,Old statel), 


appendd (pdo (Name, Year,Equip,Amount),Old statel,New State). 
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give to PDO or procurement (Old state,Name,Equip,Xear, 
Amount, New State):- 
not(forward(Old equip,Equip)), 


get rid of remaining procurements (Equip,Old state,Old statel), 
appendd (pdo (Name, Year,Equip,Amount),Old statel,New State). 


gee Hid of | remaining procurements (X, ۱ ۲ ۱ ۰ 
get 5۳ 10 GE Eremassumgoprecurements(»x [procurement (Year,X, 
Amount) IL], 
[pdo (procurement, Year, X, Amount) |LL]):- 
get rid of remaining procurements (X, L,LL). 
get Iid of remaining procurements (X, e aac ona 
[Transaction|LL]):- 
get rid of remaining procurements(X,L,LL) . 


۶۳۳۱ of 0 procurements (Old state, New state)e- 
 deleteall(Old state,New state). 


/* the evaluation function calculates the least number of */ 
/* givens needed to get a unit to the highest procurement  */ 


E nrst,2):-bagof(U,priorities(List,U),Prioritylist), 
minimum(Prioritylist,Z2). 


Perorreres (List, Return) :- unit (Name, , ), 
unitstatus look unit (List,Name, ,Equip), 
priority (Equip, Return). 


/* the cost function is the number of time periods the plan lasts 


E 


cost (List, 2) :-bagof(U,unitstatus look | year (List, U),Givelist), 
addit (Givelist, zm member (delay (YY), List), 
dfactor (RR), 
Z is ZZ+YY*RR. 


/* define the goal of the program x / 
uexreached(X):- get |_| rid of 0 procúrements(X, New state), 
subgoal (New | state). 
subgoal (New state):- not (member (procurement (_,_,_),New_state)). 


subgoal (New state):- not (allocated (New state, Fx). 
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/* this is a format for the program * / 
done searching file(List,Fname):-any wrong priority (List), 
tell(Fname),write('it cannot be done'),nl, 
write('there is a problem with the units data’),nl, 
write('equipoment already out of priority sequence’),nl, 
told yhalte 


done searching file(List,Fname):- not(tracer),not (bigtrace), 
save (coreplanner), 
write('core image saved you can ctl c now’),nl, 
appendd(delay(0),List,Newlist),write (Newlist), 


search(Newlist,X),sortplan(X,Y),tell(Fname),write(Y),statistics, 
countup (agenda (A,B,C) ,NA) ,write (NA) ,write(’:incomplete ^'), 
countup (usedstate(S,SS),NB),write(NB),write(':examined '), 
told,halt. 


done searching file(List,Fname):- tracer,not(bigtrace), 
save (coreplanner), 
write('core image saved you can ctl c now'),nl, 
appendd(delay(0),List,Newlist), 
search(Newlist,X),sortplan(X,Y), 
tell(Fname),write(Y),statistics, 
countup(agenda(A,B,C),NA),write (NA),write(':incomplete ^'), 
countup (usedstate(S,SS),NB) ,write(NB),write(’:examined '),nl, 
printomyerace n tola nale 


done searching file(List Ename) : ۰ 9 9, 
save(coreplanner), 
write('core image saved you can ctl c now'),nl, 
appendd (delay (0) ,List,Newlist), 
search (Newlist,X),sortplan(X,Y), 
tell (Fname) ,write(Y),statistics, 
countup (agenda (A,B,C) ,NA) ,write (NA) ,write(’:incomplete '), 
countup (usedstate(S,SS),NB) ,write (NB) ,write(’:examined '),nl, 
remove dupsl,remove dups2, 
listing (tposvariable),listing(tnegvariable), 
told, hatte. 


remove dups1:—-tposvariable (X,Y) ,bagof (P, tposvariable(x, (7 PE RE 
addit (PLIST, AMOUNTP), EMT all x pos(X), 
assert (tposvariable (X, AMOUNTP)),fail. 

remove dupsl. 


remove dups2:-tnegvariable (X,Y),bagof (P, tnegvariable(X,P),PLIST), 
addit (PLIST, AMOUNTP),abolish all x _neg (X), 
assert (tnegvariable (X, AMOUNTP)),fail. 

remove dups2. 
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abolish all x pos(X):-retract (tposvariable(X,Y)),fail. 
abolish all Tx HOS (RE 
abolish all _x_neg(X):-retract (tnegvariable (X,Y)),fail. 
abolish all _x _ neg (X). 


print_mytrace:-nl, 
write("trace of execution times of successor calculations"), 
EH mytrace(A,B,C),printone(A,B,C),nl,fazil. 

Erme mytrace. 


Erme mMybigtrace: -print postrace,print_ negtrace. 


Brine POSLrace:-=nl, 
write ("trace of execution times of successor calculations"), 
nl, tposvariable (B, C),printtwo (B,C),nl, fail. 

print postrace. 


paunesnegtrace:-nl, 
write("trace of execution times of successor calculations"), 
nl,tnegvariable(B,C),printone(B,C),nl,fail. 

print negtrace. 


printone(A,B,C):-write(A),write(" "),write(B), 
write(" "),write(C). 
printtwo(B,C):-write(B),write(" "),write(C). 


/X this is the fall through if it cannot do it  */ 
dene Searching file (List, Fname) :- 
tell(Fname), Pyrite it cannot be done’), told, halt. 


sortplan([],I[]). 
Emm DXILI],n2):-sortplan(L1,L3),insert in plan(X,LD3,12). 


insert Rn plan (X, [], [X]). 

insert in plan (X, [YIL], [X,YIL]):- cost in plan (X,Xcost), 
cost in plan (Y, Ycost),Xcost<Ycost. 

Erte In plan(X, [Y]L]], [Y]L2]):- cost in plan(X,Xcost), 
cost in plan(Y,Ycost), Xcost>=Ycost, 
insert in plan(X,L1,L2). 


e-em plan(given(Unit, ,Year, ),Cost):- unit (Unit, Priority, ), 
Cost is Priority*100+Year. 


ST mM PIan (pdo (Unit, Year,_, ),Cost):= Cost 1s 1000+Year*10. 


cost _ in plan (delay (C), 0). 
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